home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / 0938.ZIP / KEGELUNX.ARC / PROT.ASM < prev    next >
Assembly Source File  |  1985-06-10  |  2KB  |  116 lines
  1. page 66,132
  2. ;compressed mode on prn.
  3. page
  4.  
  5.  
  6. ;---- (un)prot.com ------------------------------------------------
  7. ; Usage: (un)prot filespec
  8. ; Write-protects (unprotects) filespec
  9. ; Wildcards allowed in filename 
  10. ; MCN  10 July 84
  11. ; DRK  29 July 84- to use new args, ffind; old DTA was getting clobbered?
  12. ;---------------------------------------------------------------
  13.     extrn    _args:near,argc:word,argv:word
  14.     extrn    ffirst:near,fnext:near,fnam:byte,finder:word
  15.  
  16. stderr    equ    2
  17.  
  18.  
  19. code    segment    public 'CODE'
  20. assume cs:code,ds:code,es:code
  21.  
  22. f_attrib    equ    21        ; offset from DTA of file attrib
  23.  
  24.     org    100h
  25.  
  26. ; This is a .COM program.
  27. ; It takes one argument- the name of a file (wildcards ok).
  28. ; 
  29. ; The argument is the first nonblank string of chars.
  30. ; Either backslashes or forward slashes may be used in a pathname.
  31.  
  32. exist    proc    near
  33.  
  34.     ; Get arguments.
  35.     call    _args
  36.  
  37.     ; Check # of arguments- if not exactly one, send usage message.
  38.     cmp    argc,1
  39.     jnz    usage
  40.  
  41.     ; call DOS to see if file exists.
  42.     mov    dx, argv[2]    ; get pointer to first argument.
  43.     mov    cx, 0        ; no special attribute bits set
  44.     call    ffirst        ; FIND FIRST
  45.     jc    nofile        ; if carry set, no file found.
  46.  
  47. doit: 
  48.     mov    bx, finder
  49.     mov    cl, [bx][f_attrib]             
  50.     or    cl, 1        ; write protect
  51.     mov    ax, 4301h    ; put file mode
  52.     lea    dx, fnam    ; 
  53.     int    21h
  54.  
  55. next:    call    fnext        ; FIND NEXT
  56.     jnc    doit        ; again
  57.     mov    al, 0        ; errorlevel= 0 => file found
  58.     jmp    short exit
  59.  
  60. nlen    = 0
  61. nlen    = nend-noff
  62.  
  63. nofile:    mov    bx, stderr     ; error device
  64.     mov    cx,    nlen
  65.     mov    dx,    offset nmsg
  66.     mov    ah, 40h
  67.     int    21h
  68.     mov    al, 1        ; file not found error
  69.     jmp    short exit
  70.  
  71.     
  72.     
  73.  
  74. exit:    mov    ah, 4ch
  75.     int    21h        ; terminate process, return status in AL.
  76.  
  77. ulen    = 0
  78. ulen    =    uend-uoff
  79.  
  80. usage:    mov    bx, stderr    ; write to error device...
  81.     mov    cx, ulen
  82.     mov    dx, offset umsg
  83.     mov    ah, 40h
  84.     int    21h
  85.     mov    al, 2        ; error2 = syntax error
  86.     jmp    exit
  87.  
  88. nfw:
  89. blam:    mov    bx, stderr     ; error device
  90.     mov    cx,    nlen
  91.     mov    dx,    offset nmsg
  92.     mov    ah, 40h
  93.     int    21h
  94.     mov    al, 0ffh        ; file whiz error
  95.     jmp    exit
  96.  
  97. exist    endp
  98.  
  99.  
  100. handle    dw    ?
  101.     
  102. umsg    db    'Usage: prot filespec', 13, 10
  103. bugo    db    ?
  104. uoff    equ    offset umsg
  105. uend    equ    offset bugo
  106.  
  107. nmsg    db    'File not found', 13, 10
  108. nugo    db    ?
  109. noff    equ    offset nmsg
  110. nend    equ    offset nugo
  111.  
  112.  
  113. code    ends
  114.  
  115.     end    exist
  116.